home *** CD-ROM | disk | FTP | other *** search
/ PC Guide Interactive 5 / PC Guide Issue 5 (Future Publishing) (1995).iso / english / circle.exe / circle.DXR / 00002_FRAME.ls next >
Encoding:
Text File  |  1995-06-13  |  3.6 KB  |  136 lines
  1. on enterFrame
  2.   global fcommand, scommand, ecommand, fl_msg, acwin, framecnt, butisflash, idsw
  3.   if fcommand = "LOOP" then
  4.     circleloopplay()
  5.     midi_active()
  6.   else
  7.     if framecnt < 1 then
  8.       midi_active()
  9.       if acwin = "MAIN" then
  10.         if not (fcommand = EMPTY) then
  11.           if fcommand = "FS_O" then
  12.             fsel_open()
  13.           else
  14.             if fcommand = "FS_L" then
  15.               fsel_load()
  16.             else
  17.               if fcommand = "FS_C" then
  18.                 fsel_clear()
  19.               else
  20.                 if fcommand = "CWIN" then
  21.                   ci_sup_ok()
  22.                 else
  23.                   if fcommand = "IWIN" then
  24.                     ci_ins_ok()
  25.                   else
  26.                     if fcommand = "REMX" then
  27.                       remix(0)
  28.                     else
  29.                       if fcommand = "STR1" then
  30.                         circle_start1()
  31.                       else
  32.                         if fcommand = "STR2" then
  33.                           circle_start2()
  34.                         else
  35.                           if fcommand = "ENDE" then
  36.                             circleend()
  37.                           else
  38.                             if fcommand = "HPOP" then
  39.                               help_load(hp_page)
  40.                             end if
  41.                           end if
  42.                         end if
  43.                       end if
  44.                     end if
  45.                   end if
  46.                 end if
  47.               end if
  48.             end if
  49.           end if
  50.         else
  51.           if ecommand = "SFop" then
  52.             selfname("SOUND")
  53.           else
  54.             if ecommand = "SFoc" then
  55.               selfname("CIRCLE")
  56.             else
  57.               if not (scommand = EMPTY) then
  58.                 if scommand = "LOST" then
  59.                   loadlost()
  60.                 else
  61.                   if scommand = "CIlo" then
  62.                     circleloadrun()
  63.                   else
  64.                     if scommand = "CISa" then
  65.                       circlesaverun()
  66.                     else
  67.                       if scommand = "MXSa" then
  68.                         do_savemix()
  69.                       end if
  70.                     end if
  71.                   end if
  72.                 end if
  73.               else
  74.                 if butisflash then
  75.                   but_reflash()
  76.                 end if
  77.               end if
  78.             end if
  79.           end if
  80.         end if
  81.       else
  82.         if acwin = "SFNA" then
  83.           if ecommand = "SFdo" then
  84.             if idsw then
  85.               selfname_do_id()
  86.             else
  87.               selfname_do()
  88.             end if
  89.           else
  90.             if ecommand = "SFop" then
  91.               selfname()
  92.             else
  93.               if ecommand = "SFcl" then
  94.                 selfname_cl()
  95.               else
  96.                 if ecommand = "SFpa" then
  97.                   selfname_pa()
  98.                 end if
  99.               end if
  100.             end if
  101.           end if
  102.         else
  103.           if acwin = "FSEL" then
  104.             if fcommand = "HPOP" then
  105.               help_load(hp_page)
  106.             else
  107.               if fcommand = "FS_C" then
  108.                 fsel_clear()
  109.               end if
  110.             end if
  111.             if fl_msg = "chkp" then
  112.               fl_chkp()
  113.             end if
  114.           else
  115.             if acwin = "EFFE" then
  116.               if fcommand = "HPOP" then
  117.                 help_load(hp_page)
  118.               end if
  119.             end if
  120.           end if
  121.         end if
  122.       end if
  123.     else
  124.       mmput(1, "frame: >" & framecnt)
  125.       set framecnt to framecnt - 1
  126.     end if
  127.   end if
  128. end
  129.  
  130. on exitFrame
  131.   global fcommand
  132.   if fcommand <> "QUIT" then
  133.     go("wkloop")
  134.   end if
  135. end
  136.